home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boosters.arc / XSCREEN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-11-06  |  688 b   |  34 lines
  1. {$IBoDecl}
  2. {$ICopies}
  3. {$ICenter}
  4. {$IPutStr}
  5. {$ISaves}
  6. {$IRestores}
  7.  
  8. BEGIN
  9.  
  10.    Mark ( HeapTop );
  11.    New ( page[1] );
  12.    New ( page[2] );
  13.  
  14.    for i := 1 to 25 do
  15.       PutStr (h,Copies ( ' ' ,80), 1, i, 7 );
  16.    PutStr (h, Center (' PRESS ANY KEY ',80,' ' ),1,13,7);
  17.    SaveScreen ( page[1] );
  18.    read(Kbd,ch);
  19.    for i := 1 to 25 do
  20.       PutStr (h,Center ( 'This is screen 2 - press SpaceBar to quit',
  21.                           80,' '),1,i,14);
  22.    SaveScreen ( page[2] );
  23.    read(Kbd,ch);
  24.  
  25.    repeat
  26.       RestoreScreen ( page[1] );
  27.       read(Kbd,ch);
  28.       RestoreScreen ( page[2] );
  29.       read(Kbd,ch);
  30.    until ch = ' ';
  31.  
  32.    Release ( HeapTop );
  33. END.
  34.